home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
ques_221.zip
/
SAMPLES.ZIP
/
DEMOS.ZIP
/
GAME.Q-A
< prev
next >
Wrap
Text File
|
1990-07-04
|
2KB
|
85 lines
:Logo
clearscreen
display "|"
changecolor 14 4
display " ╔════════════════════════════════════════════╗ |"
display " ║ ║ |"
display " ║ █▀█ █ █ █▀▀ █▀▀ █▀█ █▀▀█ █▄ ▄█ █▀▀ ║ |"
display " ║ █▄█ █ █ █▀ ▀▀█ ▀▀▀ █▄█ █▀▀█ █ ▀ █ █▀ ║ |"
display " ║ █ ▀▀▀ ▀▀▀ ▀▀▀ ▄ █ ▀ ▀ ▀ ▀ ▀▀▀ ║ |"
display " ║ ▀ ▀▀▀ ║ |"
changecolor 14 1
display " ┌──────────────────────────────────────────────────────┐ |"
display " │ A Simple Guess Game made with Quesdoor by R. Huiskes │ |"
display " └──────────────────────────────────────────────────────┘ |"
changecolor 14
display " "
gosublabel tIme
display "|"
:
:top
display "---> GUESS THE CORRECT NUMBER !|"
display " If you choose the same value as I'm thinking of know, you will|"
display " win 5 minutes extra !|"
display " But... If you're wrong, you loose 5 minutes !|"
display "|"
gotolabel guess
:
:Time
display "Timeleft on bbs : "
Listtimeleft
display " minutes|"
:
:guess
display "Guess... Enter a number between 1 and 4 :"
getchoice 1234 1
display "|"
random 4 2
:
if 1 = 2
beep
beep
beep
display "Congratulations... You guess was right !|"
display "It was number "
display 2
display " I was thinking of !!!|"
display "|"
settime +5
display "Press <ENTER>"
ask 0 3
gotolabel Ask
endif
ifnot 1 = 2
display "I'm sorry... You didn't quessed right|"
display "I was more thinking of "
display 2
display " !|"
display "|"
settime -5
display "Press <ENTER>"
ask 0 3
endnotif
:ask
display "|"
display "Do you want to try it again ? (y/N) "
ask 1 10
if 10 = "y"
gotolabel Logo
endif
clearscreen
delete game.asw
quit